Program    Dvitem;
Uses Crt,Tipos,Uvenda,Mvenda,UniPro;
Var
 Item:Titem;
 Produtos:TListaPro;
 Vendas:TListaVenda;
 Venda:Tvenda;
 Result:Integer;
 Op:Byte;
 Clientes:TlistaCli;
 Vendedores:TlistaVend;
 Cliente:Tcliente;
 Vendedor:Tvendedor;
 Produto:Tproduto;
 Cont:Integer;


Begin
AbreArqs(Clientes,Vendedores,Produtos);
AbreArqVenda(Vendas);

ModuloVendas(Vendas,Venda,Clientes,Vendedores,Produtos);


AtuArq(Clientes,Vendedores,Produtos);
AtuArqVenda(Vendas);
End.






